home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group4 / OCXINBOX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-07-14  |  3.9 KB  |  137 lines
  1. VERSION 4.00
  2. Begin VB.Form InboxForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Inbox Messages"
  6.    ClientHeight    =   2895
  7.    ClientLeft      =   1470
  8.    ClientTop       =   4725
  9.    ClientWidth     =   5970
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   1
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    Height          =   3270
  20.    Left            =   1425
  21.    LinkTopic       =   "Form4"
  22.    MDIChild        =   -1  'True
  23.    ScaleHeight     =   2895
  24.    ScaleWidth      =   5970
  25.    Top             =   4395
  26.    Width           =   6060
  27.    Begin VB.CheckBox SortMsg 
  28.       BackColor       =   &H00C0C0C0&
  29.       Caption         =   "Sort Inbox Message"
  30.       Height          =   375
  31.       Left            =   165
  32.       TabIndex        =   5
  33.       Top             =   30
  34.       Width           =   2175
  35.    End
  36.    Begin VB.CheckBox UnreadMsg 
  37.       BackColor       =   &H00C0C0C0&
  38.       Caption         =   "Unread Message Only"
  39.       Height          =   375
  40.       Left            =   2445
  41.       TabIndex        =   4
  42.       Top             =   30
  43.       Width           =   2295
  44.    End
  45.    Begin VB.CommandButton FilterMsg 
  46.       Caption         =   "&Refresh List"
  47.       Height          =   285
  48.       Left            =   3720
  49.       TabIndex        =   3
  50.       Top             =   2520
  51.       Width           =   1815
  52.    End
  53.    Begin VB.CommandButton OpenMsgBtn 
  54.       Caption         =   "&Open Message"
  55.       Height          =   285
  56.       Left            =   1920
  57.       TabIndex        =   2
  58.       Top             =   2520
  59.       Width           =   1695
  60.    End
  61.    Begin VB.CommandButton HideWndBtn 
  62.       Caption         =   "&Hide List"
  63.       Height          =   285
  64.       Left            =   255
  65.       TabIndex        =   1
  66.       Top             =   2520
  67.       Width           =   1575
  68.    End
  69.    Begin VB.ListBox MsgList 
  70.       Height          =   1785
  71.       Left            =   165
  72.       TabIndex        =   0
  73.       Top             =   510
  74.       Width           =   5700
  75.    End
  76.    Begin Mailx16Lib.MMsg MMsg1 
  77.       Left            =   5400
  78.       Top             =   2280
  79.       _version        =   65542
  80.       _extentx        =   900
  81.       _extenty        =   900
  82.       _stockprops     =   0
  83.       markasread      =   0   'False
  84.       displayerrors   =   0   'False
  85.       bindstring      =   "FormTag1.MSess1"
  86.       fastfetch       =   -1  'True
  87.    End
  88.    Begin Mailx16Lib.MForm MForm1 
  89.       Left            =   855
  90.       Tag             =   "FormTag2"
  91.       Top             =   2295
  92.       _version        =   65542
  93.       _extentx        =   5318
  94.       _extenty        =   500
  95.       _stockprops     =   0
  96.       mxformname      =   "FormTag2"
  97.    End
  98. Attribute VB_Name = "InboxForm"
  99. Attribute VB_Creatable = False
  100. Attribute VB_Exposed = False
  101. Private Sub FilterMsg_Click()
  102.     MMsg1.UnreadOnly = UnreadMsg
  103.     MMsg1.SortMsg = SortMsg
  104.     RefreshList
  105. End Sub
  106. Private Sub Form_Load()
  107.     RefreshList
  108. End Sub
  109. Private Sub HideWndBtn_Click()
  110.     Unload Me
  111. End Sub
  112. Private Sub MsgList_DblClick()
  113.     OpenMsgBtn_Click
  114. End Sub
  115. Private Sub OpenMsgBtn_Click()
  116.     Dim Index As Integer
  117.     Index = MsgList.ListIndex
  118.     If Index = -1 Then
  119.         MsgBox "Select a Mail Message to be opened"
  120.     Else
  121.         MMsg1.FetchMsg = Index + 1
  122.         NewMsgWnd MMsg1
  123.     End If
  124. End Sub
  125. Private Sub RefreshList()
  126.     SessionForm.MousePointer = 11
  127.     MsgList.Clear
  128.     MMsg1.Action = ACTION_FINDFIRST
  129.     Do
  130.         If MMsg1.FetchMsg <> 0 Then
  131.             MsgList.AddItem MMsg1.Subject
  132.             MMsg1.Action = ACTION_FINDNEXT
  133.         End If
  134.     Loop While MMsg1.FetchMsg <> 0
  135.     SessionForm.MousePointer = 1
  136. End Sub
  137.